Public Class CS234
   Inherits CSSE

   Sub New()
      _UnitRangeMin = 1
      _UnitRangeMax = 10
      _ScoreRangeMin = 0
      _ScoreRangeMax = 100

      Score = 0
      Unit = 2

      If _Score = _ScoreRangeMax Then
         PerfectScoreReached()
      End If
   End Sub

   Public Overrides Property Score()
      Get
         Return _Score
      End Get
      Set(ByVal value)

         If value >= _ScoreRangeMin And value <= _ScoreRangeMax Then

            _Score = value

            If _Score = _ScoreRangeMax Then
               PerfectScoreReached()
            End If

         Else

            Err.Raise(33402, "Score", "KarbassA::Value would be out of range!")

         End If

      End Set
   End Property
End Class
